home *** CD-ROM | disk | FTP | other *** search
/ J-Mac Electronics & Home Comics / J-Mac Electronics & Home Comics.iso / mac / J-MAC / G40F / YUIMAIN.Dxr / 00015.ls < prev    next >
Encoding:
Text File  |  1998-01-22  |  1.3 KB  |  73 lines
  1. global moveno
  2.  
  3. on startMovie
  4.   set mycursor to [1, 2]
  5.   set the cursor of sprite 3 to mycursor
  6.   set the cursor of sprite 4 to mycursor
  7.   set the cursor of sprite 5 to mycursor
  8.   set the cursor of sprite 6 to mycursor
  9.   set volset to the soundLevel
  10.   if the soundEnabled = 0 then
  11.     set the soundEnabled to 1
  12.   end if
  13. end
  14.  
  15. on doexit
  16.   go("M5", "@::JMACMENU")
  17. end
  18.  
  19. on crtopen1
  20.   puppetSprite(7, 1)
  21.   repeat while the stillDown
  22.     set the memberNum of sprite 7 to 7
  23.     updateStage()
  24.   end repeat
  25.   set the memberNum of sprite 7 to 4
  26.   updateStage()
  27.   puppetSprite(7, 0)
  28.   set moveno to 1
  29. end
  30.  
  31. on crtopen2
  32.   puppetSprite(8, 1)
  33.   repeat while the stillDown
  34.     set the memberNum of sprite 8 to 7
  35.     updateStage()
  36.   end repeat
  37.   set the memberNum of sprite 8 to 4
  38.   updateStage()
  39.   puppetSprite(8, 0)
  40.   set moveno to 2
  41. end
  42.  
  43. on crtclose
  44.   puppetSprite(9, 1)
  45.   repeat while the stillDown
  46.     set the memberNum of sprite 9 to 8
  47.     updateStage()
  48.   end repeat
  49.   set the memberNum of sprite 9 to 5
  50.   updateStage()
  51.   puppetSprite(9, 0)
  52. end
  53.  
  54. on crtprof
  55.   puppetSprite(10, 1)
  56.   repeat while the stillDown
  57.     set the memberNum of sprite 10 to 9
  58.     updateStage()
  59.   end repeat
  60.   set the memberNum of sprite 10 to 6
  61.   updateStage()
  62.   puppetSprite(10, 0)
  63. end
  64.  
  65. on dochangmov
  66.   if moveno = 1 then
  67.     go(1, "G_Yui")
  68.   end if
  69.   if moveno = 2 then
  70.     go(1, "M_rider")
  71.   end if
  72. end
  73.